home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok90 / amoked1.41 / macros / oberonc.aed < prev    next >
Text File  |  1993-11-04  |  648b  |  36 lines
  1. /* OberonC - Compiliert Oberon Programme */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7.  
  8. 'top first'
  9. 'find MODULE' ; 'wright'
  10. 'scanf %[~;]'
  11. 'chfilename $scanf.mod'
  12.  
  13. 'getval $filename'
  14. filename = result
  15.  
  16. 'getval $screenname'
  17. screenname = result
  18.  
  19. 'if m (rx bumprevision saveold)'
  20.  
  21. call close 'STDERR'
  22. call open 'STDERR','NIL:','W'
  23. call close 'STDIN'
  24. call close 'STDOUT'
  25. call open 'STDOUT','CON:25/15/640/256/RexxCon/SCREEN'||screenname,'RW'
  26. call pragma '*','STDOUT'
  27.  
  28. address command 'oberon >* <*' filename
  29.  
  30. if rc ~= 0 then do
  31.   close('STDOUT')
  32.   'ObError read'
  33. end; else
  34.   close('STDOUT')
  35.  
  36.